program callhome;

//{$APPTYPE CONSOLE}

uses
  System,SysUtils,Windows,Dialogs;

{$R *.res}
var
  ExePath:string;
  ExeHome:string;
begin
  try
    ShowMessageFmt('%D',[ParamCount]);
  finally
  
  end;
  //ExeHome:=ParamStr(1);

  {if FileExists(ExePath+'example10001.tmp') then
  begin
    DeleteFile(PAnsiChar(ExePath+'example10001.exe'));
    if RenameFile(ExePath+'example10001.tmp',ExePath+'example10001.exe') then
    begin
      WinExec(PChar(ExePath+'example10001.exe'), SW_SHOW);
    end;
  end;}
end.
